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set B' [j]=0 for j=0 to N 



set r[p. i. j]=0 for j. i, p=0 to M 



set B' [01=1 



✓ S30 



run recurrence 
B' Cj]=H) l(2d)B* [J-1]+(j-1)B* U-2U/0H+1) 
for j=1 to M-K 
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set r[0.0J]=8 Cjl for j=0 to N-K 



o 



run recurrence 
rip. i, j)=(r[p-1. M, j]-r[p-1. M. j+U)/2 
♦(rEp-1J.j]*r[p-I.I.M])/2 
for j=0 to H-p. i=0 to p. p=1 to H 



eet h[i]=r[H,i.01 for i=0 to N 
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output h[i] for i=0 to N 



END 
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